home *** CD-ROM | disk | FTP | other *** search
/ Buzz 6 / Buzz 6.adf / Install < prev    next >
Encoding:
Text File  |  1995-03-26  |  2.0 KB  |  105 lines
  1. ; $VER: BuZz-Install-Script v1.0 (95-03-26)
  2. ; Copyright © 1995 by dEFOANCe & The BUZZ Team
  3.  
  4. (complete 0)
  5.  
  6. (set OK 0)
  7.  
  8. (message "\n\n\n\n\nWelcome to the BuZz Installation\n\n\n"
  9.          "Copyright © 1995 by dEFIANCe & The BUZZ Team")
  10.  
  11. (complete 10)
  12.  
  13. (set DestPath
  14.     (askdir
  15.         (prompt "Where should I install BuZz?")
  16.         (help "\n  BuZz will be installed in the choosen path,\n"
  17.                         "  creating the directory 'BuZz'.")
  18.         (default "SYS:")
  19.     )
  20. )
  21.  
  22. (if
  23.     (askbool
  24.         (prompt "\n\nAre you sure, that BuZz should be\n"
  25.             "installed in\n\n\n'"
  26.             DestPath
  27.             "'\n\n\n(A new directory called 'BuZz' will be created,\n"
  28.             "where you will find the main executable\n"
  29.                         "and all the necessary data files.)'")
  30.         (help "\n  If you don't want to install BuZz in the\n"
  31.                 "  choosen directory, select the NO Gadget.\n\n"
  32.                 "  If you think that the selected directory is\n"
  33.                 "  up to your tastes, then press YES.")
  34.     )
  35.     (set OK 1)
  36. )
  37.  
  38. (if (= OK 1)
  39.     (
  40.         (complete 10)
  41.  
  42.         (set FinalPath (cat (tackon DestPath "BuZz")))
  43.  
  44.         (set DataPath (cat (tackon FinalPath "Articles")))
  45.  
  46.         (makedir
  47.             (FinalPath)
  48.             (infos)
  49.         )
  50.  
  51.         (makedir
  52.             (DataPath)
  53.             (infos)
  54.         )
  55.  
  56.         (askdisk
  57.             (prompt "\n\n\n\nPlease insert the first BuZz disk\n\n"
  58.                 "'BuZz_6'\n\n"
  59.                 "in any drive")
  60.             (help "\n  Only one thing:\n"
  61.                   "      INSERT THE RIGHT DISK")
  62.             (dest "BuZz_6")
  63.         )
  64.  
  65.         (complete 20)
  66.  
  67.         (copyfiles
  68.             (source "BuZz_6:")
  69.             (dest FinalPath)
  70.             (pattern "(BuZz6)")
  71.             (optional "force")
  72.         )
  73.  
  74.         (complete 30)
  75.  
  76.         (copyfiles
  77.             (source "BuZz_6:")
  78.             (dest FinalPath)
  79.             (pattern "(BuZz6.info)")
  80.             (optional "force")
  81.         )
  82.  
  83.         (complete 40)
  84.         (copyfiles
  85.             (prompt "Installing BuZz Data Files...")
  86.          (source "BuZz_6:Articles/")
  87.             (dest DataPath)
  88.             (all)
  89.             (optional "force")
  90.  
  91.         )
  92.  
  93.     )
  94. )
  95.  
  96. (complete 100)
  97.  
  98. (set default-dest DestPath)
  99.  
  100. (message "\n\nInstallation complete!\n\n"
  101.          "Now make sure to change the Assign To BuZz6:\n"
  102.          "'Assign BuZz_6: xx:BuZz'\n")
  103.  
  104. (exit)
  105.